Collection of Internet/Collection of Internet.iso/winprogs/gcp_24/about.fr_/about.fr

Visual Basic Form | 1994-03-05 | 5.6 KB | 187 lines

VERSION 2.00
Begin Form frmAbout
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "About VT-220 for Workgroups"
   ClientHeight    =   3075
   ClientLeft      =   2910
   ClientTop       =   2205
   ClientWidth     =   6165
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Height          =   3450
   Left            =   2865
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3075
   ScaleWidth      =   6165
   Top             =   1875
   Width           =   6255
   Begin PictureBox Picture1
      AutoSize        =   -1  'True
      Height          =   810
      Left            =   4140
      Picture         =   ABOUT.FRX:0000
      ScaleHeight     =   780
      ScaleWidth      =   1710
      TabIndex        =   12
      Top             =   300
      Width           =   1740
   End
   Begin PictureBox picIcon
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   0  'None
      Height          =   480
      Left            =   420
      Picture         =   ABOUT.FRX:0CAA
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   0
      Top             =   300
      Width           =   480
   End
   Begin Label Label2
      BackStyle       =   0  'Transparent
      Caption         =   "[phone]"
      Height          =   255
      Left            =   1320
      TabIndex        =   3
      Top             =   1200
      Width           =   1935
      WordWrap        =   -1  'True
   End
   Begin Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "Dart Communications"
      Height          =   255
      Left            =   1320
      TabIndex        =   4
      Top             =   960
      Width           =   1815
      WordWrap        =   -1  'True
   End
   Begin Label lblMath
      BackStyle       =   0  'Transparent
      Caption         =   "Unknown"
      Height          =   255
      Left            =   3600
      TabIndex        =   11
      Top             =   2760
      Width           =   2295
   End
   Begin Label lblMemory
      BackStyle       =   0  'Transparent
      Caption         =   "Unknown KB Free"
      Height          =   255
      Left            =   3600
      TabIndex        =   10
      Top             =   2520
      Width           =   2295
   End
   Begin Label Label9
      BackStyle       =   0  'Transparent
      Caption         =   "Math Co-processor:"
      Height          =   255
      Left            =   1320
      TabIndex        =   9
      Top             =   2760
      Width           =   2175
   End
   Begin Label Label8
      BackStyle       =   0  'Transparent
      Caption         =   "Memory:"
      Height          =   255
      Left            =   1320
      TabIndex        =   8
      Top             =   2520
      Width           =   2175
   End
   Begin Label lblCPU
      BackStyle       =   0  'Transparent
      Caption         =   "x86 Unknown Mode"
      Height          =   255
      Left            =   1320
      TabIndex        =   7
      Top             =   2280
      Width           =   3495
   End
   Begin Line Line1
      BorderWidth     =   2
      X1              =   1320
      X2              =   5880
      Y1              =   2160
      Y2              =   2160
   End
   Begin Label lblSerialNumber
      BackStyle       =   0  'Transparent
      Caption         =   "1.00"
      Height          =   255
      Left            =   2880
      TabIndex        =   6
      Top             =   1920
      Width           =   2055
   End
   Begin Label lblSerialNumberLabel
      BackStyle       =   0  'Transparent
      Caption         =   "Version Number:"
      Height          =   255
      Left            =   1320
      TabIndex        =   5
      Top             =   1920
      Width           =   1455
   End
   Begin Label lblCredits
      BackStyle       =   0  'Transparent
      Caption         =   "By Michael Baldwin"
      Height          =   255
      Left            =   1320
      TabIndex        =   2
      Top             =   480
      Width           =   2235
      WordWrap        =   -1  'True
   End
   Begin Label lblTitle
      BackStyle       =   0  'Transparent
      Caption         =   "VT-220 for Workgroups"
      Height          =   255
      Left            =   1320
      TabIndex        =   1
      Top             =   240
      Width           =   2295
   End
Declare Function GetWinFlags Lib "Kernel" () As Long
Declare Function GetFreeSpace Lib "Kernel" (ByVal wFlags As Integer) As Long
Sub Form_Click ()
    Unload Me
End Sub
Sub Form_Load ()
    Me.Top = (Screen.Height - Me.Height) / 2
    Me.Left = (Screen.Width - Me.Width) / 2
    UpdateCPUInfo
End Sub
Sub Picture1_Click ()
    Unload Me
End Sub
Sub UpdateCPUInfo ()
    frmAbout.picIcon.Picture = frmMDI.Icon
    Dim WinFlags As Long
    WinFlags = GetWinFlags()
    If WinFlags And &H2 Then CPU$ = "286 "
    If WinFlags And &H4 Then CPU$ = "386 "
    If WinFlags And &H8 Then CPU$ = "486 "
    If WinFlags And &H20 Then
        CPU$ = CPU$ + "Enhanced Mode"
    Else
        CPU$ = CPU$ + "Standard Mode"
    End If
    frmAbout.lblCPU.Caption = CPU$
    frmAbout.lblMemory.Caption = Format$(GetFreeSpace(0) \ 1000) & " KB Free"
    If WinFlags And &H400 Then
        frmAbout.lblMath.Caption = "Present"
    Else
        frmAbout.lblMath.Caption = "None"
    End If
End Sub